<script>on mouseDownglobal step, onLineif online thenwait 10put bg field "step" into step-- if bg field "dial" < 500 then put 1 into step1-- elseput step into step1repeat while the mouse is downsendFreq -- see stack script for detailsset numberFormat to "#####.000"subtract step1 from bg field "dial"end repeatelse exit mousedownend mouseDown-- on mouseUp-- global onLine-- if online then-- sendFreq -- see stack script for details-- else exit mouseUpend mouseUpon mouseUpglobal step, onLineif online thenif bg field "dial" < 500 then put 1 into step1else put step into step1set numberFormat to "#####.000"subtract step1 from bg field "dial"sendFreq -- see stack script for detailselse exit mouseUpend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>130</left>
<top>37</top>
<right>320</right>
<bottom>63</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Monaco</font>
<textSize>24</textSize>
<textStyle>outline</textStyle>
<textHeight>32</textHeight>
<name>Dial</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>105</left>
<top>70</top>
<right>187</right>
<bottom>88</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>MODE</name>
<script></script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>302</left>
<top>171</top>
<right>342</right>
<bottom>205</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29627</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>UP</name>
<script>on mouseDownglobal step, onlineif online thenwait 10put bg field "step" into stepput step into step1repeat while the mouse is downsendFreq -- see stack script for detailsset numberFormat to "#####.000"add step1 to bg field "dial"end repeatelse exit mousedownend mouseDownon mouseUpglobal step, onlineif online thenif bg field "dial" < 500 then put 1 into step1else put step into step1set numberFormat to "#####.000"add step1 to bg field "dial"sendFreq -- see stack script for detailselse exit mouseUpend mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>261</left>
<top>70</top>
<right>313</right>
<bottom>88</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>AGC</name>
<script></script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>391</left>
<top>70</top>
<right>436</right>
<bottom>92</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>CHANNEL</name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>134</left>
<top>89</top>
<right>184</right>
<bottom>108</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>Filter</name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>261</left>
<top>89</top>
<right>334</right>
<bottom>107</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>ATT</name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>392</left>
<top>89</top>
<right>436</right>
<bottom>108</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>STEP</name>
<script></script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>364</left>
<top>164</top>
<right>454</right>
<bottom>254</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ENTER</name>
<script>on mouseUpset numberFormat to "#####.000"ask "Please enter frequency in kHz:" with bg field "dial"multiply it by 1put it into dialTempif dialTemp > 34000 thenanswer "Sorry, frequency is too high. Maybe you are, too!"pass mouseUpend ifif dialTemp > 0 and dialTemp < 34000 thenput it into bg field "dial"sendFreqdoModedoBWdoATTdoAGCend ifend mouseUp</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>40</top>
<right>60</right>
<bottom>65</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5436</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>----- added by Evans----- show signal strength values (000 to 255) while option key downon mouseUpglobal commanding, fromRcvrif the optionKey is not down thenvisual effect dissolvego to card id 4022exit mouseupend if-- read s meter from receiverif commanding thenrepeat while the optionKey is "down"show card button id 85sendSport "M" & returnput recvChars(5) into fromRcvrdelete the first char of fromRcvrput fromRcvr into sunitset the name of card button id 85 to sunitend repeathide card button id 85exit mouseUpend ifend mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>86</left>
<top>127</top>
<right>162</right>
<bottom>149</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>B.WIDTH</name>
<script>on mousedownglobal windowLoc, theTextget the rect of bkgnd btn "B.WIDTH"put item 1 of it + item 1 of loc of card window +1 into horizput item 4 of it + item 2 of loc of card window +64 into vertget PopUpMenu("Wide;Inter;"&¬"Narrow;Auxilliary", 19, vert, horiz)put it into choiceif choice = "0" then exit mousedownif choice = "1" then put "WIDE" into bg field FILTER elseif choice = "2" then put "INTER" into bg field FILTER elseif choice = "3" then put "NARR" into bg field FILTER elseif choice = "4" then put "AUX" into bg field FILTER elseend ifend ifend ifend ifdoBWend mousedown</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>10</left>
<top>127</top>
<right>86</right>
<bottom>149</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>MODE</name>
<script>on mousedownglobal windowLoc, theTextget the rect of bkgnd btn "Mode"put item 1 of it + item 1 of loc of card window +0 into horizput item 4 of it + item 2 of loc of card window +143 into vertget PopUpMenu("AM;ECSS-USB;ECSS-LSB;USB;LSB;CW;RTTY;FAX;FM", 19, vert, horiz)put it into choiceif choice = "0" then exit mousedownif choice = "1" then put "AM" into bg field "Mode" elseif choice = "2" then put "ECSS-USB" into bg field "Mode" elseif choice = "3" then put "ECSS-LSB" into bg field "Mode" elseif choice = "4" then put "USB" into bg field "Mode" elseif choice = "5" then put "LSB" into bg field "Mode" elseif choice = "6" then put "CW" into bg field "Mode" elseif choice = "7" then put "RTTY" into bg field "Mode" elseif choice = "8" then put "FAX" into bg field "Mode" elseif choice = "9" then put "FM" into bg field "Mode" elseend ifend ifend ifend ifend ifend ifend ifend ifend ifdoModeend mousedown</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>310</left>
<top>127</top>
<right>367</right>
<bottom>149</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>AGC</name>
<script>on mousedownglobal windowLoc, theTextget the rect of bkgnd btn "AGC"put item 1 of it + item 1 of loc of card window +1 into horizput item 4 of it + item 2 of loc of card window +48 into vertget PopUpMenu("Fast;Slow;Off", 19, vert, horiz)put it into choiceif choice = "0" then exit mousedownif choice = "1" then put "FAST" into bg field "AGC" elseif choice = "2" then put "SLOW" into bg field "AGC" elseif choice = "3" then put "OFF" into bg field "AGC" elseend ifend ifend ifdoAGCend mousedown</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>162</left>
<top>127</top>
<right>236</right>
<bottom>149</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>STEP</name>
<script>on mousedownglobal windowLoc, theTextget the rect of bkgnd btn "Step"put item 1 of it + item 1 of loc of card window +1 into horizput item 4 of it + item 2 of loc of card window +145 into vertget PopUpMenu(".001 kHz;.01 kHz;.1 kHz;1 kHz;5 kHz;9 kHz;10 kHz;100 kHz;1 MHz ", 19, vert, horiz)put it into choiceif choice = "0" then exit mousedownif choice = "1" then put ".001" into bg field "STEP" elseif choice = "2" then put ".01" into bg field "STEP" elseif choice = "3" then put ".1" into bg field "STEP" elseif choice = "4" then put "1" into bg field "STEP" elseif choice = "5" then put "5" into bg field "STEP" elseif choice = "6" then put "9" into bg field "STEP" elseif choice = "7" then put "10" into bg field "STEP" elseif choice = "8" then put "100" into bg field "STEP" elseif choice = "9" then put "1000" into bg field "STEP" elseend ifend ifend ifend ifend ifend ifend ifend ifend ifend mousedown</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>366</left>
<top>127</top>
<right>412</right>
<bottom>149</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>NB</name>
<script>on mousedownglobal windowLoc, theTextget the rect of bkgnd btn "NB"put item 1 of it + item 1 of loc of card window +1 into horizput item 4 of it + item 2 of loc of card window +32 into vertget PopUpMenu("N1;N2", 19, vert, horiz)put it into choiceif choice = "0" then sendSport "N0" & return -- exit mousedownif choice = "1" then sendSport "N1" & return elseif choice = "2" then sendSport "N2" & return elseend ifend ifend mousedown</script>
</part>
<part>
<id>37</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>14</left>
<top>89</top>
<right>69</right>
<bottom>107</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>outline</textStyle>
<textHeight>12</textHeight>
<name>Remote</name>
<script></script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>302</top>
<right>506</right>
<bottom>342</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5819</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>SWBC</name>
<script>on mouseUpset icon of me to 5819wait 8set icon of me to 16223wait 8set icon of me to 32013wait 8set icon of me to 17285wait 8set icon of me to 28972WAIT 8set icon of me to 17285WAIT 8set icon of me to 32013WAIT 8set icon of me to 16223WAIT 8set icon of me to 5819visual dissolvego homeend mouseUp</script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>2</left>
<top>299</top>
<right>58</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5028</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Control OFF</name>
<script>on mouseUpglobal Talk, onLine, commandingget the name of Meif It is "bkgnd button " & quote & "Control OFF" & quote thenif commanding thensendSPort "H1" & returnelsesendSPort "I1" & returnend ifshow bg field "Remote" of cd "Main Control Panel"set icon of me to "receiverControl ON"play "Canada"set name of me to "Control ON"put true into onLineput false into commandingsend mouseUp to bg button id 53 of cd "Main Control Panel"show bg button id 53 of cd "Main Control Panel"-- beepif Talk thenspeak "receiver under computer control"end ifelseif commanding thensendSPort "H0" & return-- else-- sendSPort "I0" & returnend ifset icon of me to "receiverControl OFF"play clickset name of me to "Control OFF"hide bg field "Remote"hide bg button id 53put false into onLineput false into commandingif Talk thenspeak "receiver under manual control"end ifend ifend mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>58</left>
<top>298</top>
<right>133</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5028</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Edit Channel</name>
<script>-- This button allows editing of the channel selected with the slideron mouseUpset icon of me to "receiverControl ON"play clickset icon of me to "receiverControl OFF"global Talk--lock screenif Talk then speak "editting chanul " & bg fld "channel"visual effect dissolve fastput bg field "channel" of cd "Main Control Panel" into ChanTempgo to card ("Channel" & ChanTemp)select text of bg field "kHz" of card ("Channel" & ChanTemp)--unlock screenend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>132</left>
<top>298</top>
<right>195</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5028</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>VFO to MEM</name>
<script>-- This button sets the current parameters into a user-specified-- channel memoryon mouseUpglobal Talkset icon of me to "receiverControl ON"play clickset icon of me to "receiverControl OFF"put bg field "Channel" into channelTempask "Save current VFO settings to Channel No.:" with channelTempif It is not empty thenif it < 0 or it >199 thenif Talk thenspeak "Sarry, Chanul number must be 0 to 199"elseanswer "Sorry, channel number must be 0 to 99" with "Ok"end ifexit MouseUpend if-- verify that the channel to be set is emptyset numberFormat to "000"put It * 1 into Tempput "Channel" & Temp into CardNameif bg field "kHz" of card CardName is not empty thenanswer "OK to overwrite existing channel" & Temp with "Ok" or "Cancel"if It is "Ok" thenput bg field "Mode" into bg field "Mode" of card CardNameput bg field "Filter" into bg field "Bandwidth" of card CardNameput bg field "Dial" into bg field "kHz" of card CardNameput bg field "AGC" into bg field "AGC" of card CardNameput bg field "Att" into bg field "Attenuator" of card CardNamego to card CardNameput Empty into bg field "Station"select text of bg field "Station"end ifelseput bg field "Mode" into bg field "Mode" of card CardNameput bg field "Filter" into bg field "Bandwidth" of card CardNameput bg field "Dial" into bg field "kHz" of card CardNameput bg field "AGC" into bg field "AGC" of card CardNameput bg field "Att" into bg field "Attenuator" of card CardNamego to card CardNameput Empty into bg field "Station"select text of bg field "Station"end ifend ifend mouseUp</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>302</left>
<top>212</top>
<right>342</right>
<bottom>246</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>6871</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>UP FAST</name>
<script>on mouseDownglobal step, onLineif onLine thenwait 10put bg field "step" into step-- if bg field "dial" < 500 then-- put 1 into step1-- put 1 into bg field "step"-- -- MUST FIGURE OUT WAY TO CHANGE 100 AND 10 HZ DIGITS TO ├ÿ-- elseput step into step1repeat while the mouse is downset numberFormat to "#####.000"add step1 to bg field "dial"end repeatelse exit mouseDownend mouseDownon mouseUpglobal step, onlineif online thenif bg field "dial" < 500 then put 1 into step1else put step into step1set numberFormat to "#####.000"add step1 to bg field "dial"sendFreq -- see stack script for detailselse exit mouseUpend mouseUp</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>171</left>
<top>212</top>
<right>211</right>
<bottom>246</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5910</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DOWN FAST</name>
<script>on mouseDownglobal step, onlineif online thenwait 10put bg field "step" into step-- if bg field "dial" < 500 then put 1 into step1-- elseput step into step1repeat while the mouse is downset numberFormat to "#####.000"subtract step1 from bg field "dial"end repeatelse exit mouseDownend mouseDownon mouseUpglobal step, onLineif online thenif bg field "dial" < 500 then put 1 into step1else put step into step1set numberFormat to "#####.000"subtract step1 from bg field "dial"sendFreq -- see stack script for detailselse exit mouseUpend mouseUp</script>
</part>
<part>
<id>47</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>420</left>
<top>52</top>
<right>498</right>
<bottom>72</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>UTC Time</name>
<script></script>
</part>
<part>
<id>48</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>363</left>
<top>39</top>
<right>498</right>
<bottom>59</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>UTC Date</name>
<script></script>
</part>
<part>
<id>49</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>426</left>
<top>70</top>
<right>457</right>
<bottom>88</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Mem Recall</name>
<script></script>
</part>
<part>
<id>51</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>400</left>
<top>302</top>
<right>445</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1020</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseDownget the rect of bg btn "Help"put item 1 of it + item 1 of loc of card window +8 into horizput item 4 of it + item 2 of loc of card window -228 into vert-- put the right of me +68 into horiz-- put the top of me -40 into vert ----- -50put "General Help,Keypad,Chan. button,Freq. button,Ch# button,Channel slider,Arrow buttons," &¬"Tuning dial,Edit channel,Set channel,Init. Receiver,Uninit. Receiver,Bob's Changes"into myChoicesget PopUpMenu (myChoices,0,vert,horiz)if it is 0 thenexit mouseDownelseput item it of myChoices into helpCardvisual effect iris close fastgo to card helpCardend ifend mouseDown</script>
</part>
<part>
<id>52</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>127</left>
<top>298</top>
<right>247</right>
<bottom>320</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Following 535</name>
<script>on mouseUpglobal commanding, onLineif commanding thenset the name of me to "Following 525"put false into commandingif onLIne thensendSPort "H0"sendSPort "I1"end ifelseset the name of me to "Commanding 525"put true into commandingif onLine thensendSPort "I0"sendSPort "H1"end ifend ifend mouseUp</script>
</part>
<part>
<id>53</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>2</left>
<top>0</top>
<right>120</right>
<bottom>17</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Commanding 535</name>
<script>on mouseUpglobal commanding, onLineif commanding thenset the name of me to "Following 535"put false into commandingif onLIne thensendSPort "H0" & returnsendSPort "I1" & returnsendFreqend ifelseset the name of me to "Commanding 535"put true into commandingif onLine thensendSPort "I0" & returnsendSPort "H1" & returnsendFreqend ifend ifend mouseUp</script>
</part>
<part>
<id>54</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>11</left>
<top>163</top>
<right>148</right>
<bottom>180</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>outline</textStyle>
<textHeight>12</textHeight>
<name>Channel Information</name>
<script></script>
</part>
<part>
<id>30</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>11</left>
<top>176</top>
<right>148</right>
<bottom>252</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>outline</textStyle>
<textHeight>13</textHeight>
<name>Channel Data</name>
<script>on mouseUpget the style of meif it is transparent then-- put empty into bg field "channel information"set lockscreen to trueset style of me to scrollingset textStyle of me to plainset textSize of me to 10set the rect of me to 5,159,173,259-- set lockText of me to falseset lockscreen to falseend ifif it is scrolling thenset lockscreen to trueset the style of me to transparentset the textStyle of me to outlineset lockText of me to trueset the rect of me to 11,176,148,252-- put "Channel Information" into bg field "Channel Information"set lockscreen to falseend ifplay clickend mouseUp</script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>307</left>
<top>302</top>
<right>351</right>
<bottom>342</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10181</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sort </name>
<script>on mouseUpset highlite of me to trueanswer "Sort channels by station name?" with "Cancel" or "Sort"if it is "Sort" thenset cursor to watch-- first, change all "Empty" "stations" into "ZZZ" to assure they're lastshow window "Message"lock screenput "Replacing Empties" into msggo to first card of background "Channel Data"repeat with cdNum = 1 to 200put bg fld "Channel #" into msgif bg fld "Station" is "Empty" then put "ZZZ" into bg fld "Station"go to next cardend repeat-- sort all cards of background "Channel Data" by "Station"put "Sorting" into msgsort background "Channel Data" by fld "Station"-- renumber cards and channels & replace all "ZZZ" stations back to "Empty"put "Replacing ZZZs" into msggo to first card of background "Channel Data"repeat with cdNum = 0 to 199set numberFormat to "000"put cdNum + 0 into theChanput "Channel" & theChan into theNameput "Channel " & bg fld "Channel #" & " now " & TheChan into msgset the name of this card to theNameput TheChan into bg fld "Channel #"if bg fld "Station" is "ZZZ" then put "Empty" into bg fld "Station"go to next cardend repeatdoMenu "compact stack"put "Done" into msgset cursor to handgo to card "Main Control Panel"unlock screenhide window "Message"end ifend mouseUp</script>
</part>
<part>
<id>56</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>352</left>
<top>302</top>
<right>396</right>
<bottom>342</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>-1</titleWidth>
<icon>-15953</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find Station</name>
<script>on mousedownglobal stationListget the rect of bg btn "Find Station"put item 1 of it + item 1 of loc of card window +8 into horizput item 4 of it + item 2 of loc of card window -328 into vertput stationList & ",-,Add new station…" into myChoicesput (the number of items of myChoices) + 1 into otherItemget PopUpMenu (myChoices,0,vert,horiz)if it is 0 or it is otherItem thenask "Enter station name to search for"put it into theStnelseput item it of myChoices into theStnend ifif theStn is "Add new station…" thengo cd "Station Entry"exit mouseDownend ifif theStn is empty then exit mouseDownlock screenpush cardfind theStn in bg fld "Station"put "Channel" & bg fld "Channel #" into cardNameput bg fld "Channel #" into channelTemppop cardunlock screenset the name of card button id 32 to channelTempset numberFormat to "000"put channelTemp * 1 into bg field "channel"set numberFormat to "####0.00""if icon of bg btn id 59 is "5029" thenput (bg field "kHz" of card cardName) + 0 into bg field "dial"put bg field "Mode" of card cardName into bg field "mode"put bg field "AGC" of card cardName into bg field "AGC"put bg field "Bandwidth" of card cardName into bg field "filter"put bg field "attenuator" of card cardName into bg field "att"end ifput empty into channelDataput bg field "kHz" of cd cardName into channelDatakHzput bg field "station" of cd cardName into channelDataStationput bg field "remarks" of cd cardName into channelDataRemarksput channelDatakHz && "kHz" & return & channelDataStation & return & ¬channelDataRemarks into bg field "Channel Data"-- put false into Manualif bg fld "Station" of cd cardName is not "Empty" and icon ¬of bg btn id 59 is "5029" then-- send mouseUp to cd button "Channel Set"sendFreqdoAGCdoModedoATTdoBWend if-- UPDATE LOCATION OF SLIDING CHANNEL SELECT BUTTONput bg field "channel" into channelTempmultiply channelTemp by 1.825add 95 to channelTempset numberFormat to "0"divide channelTemp by 1put channelTemp & ",276" into theLocset the loc of cd btn id 32 to (theLoc)set highlite of me to trueend mousedownon mouseUpset highlite of me to true-- -- if theStn is "Add new station…" then-- -- exit mouseUp-- -- end if-- -- UPDATE LOCATION OF SLIDING CHANNEL SELECT BUTTON-- put bg field "channel" into channelTemp-- multiply channelTemp by 1.825-- add 95 to channelTemp-- set numberFormat to "0"-- divide channelTemp by 1-- put channelTemp & ",276" into theLoc-- set the loc of cd btn id 32 to (theLoc)end mouseUp</script>
</part>
<part>
<id>57</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>44</left>
<top>263</top>
<right>68</right>
<bottom>289</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8349</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>PrevChan</name>
<script>on mouseDown-- global step, Manual, Talk, byChannel-- if byChannel thenglobal morefreqrepeat -- be sure we execute this at least once per clickput bg fld "channel" into channelTempset numberFormat to "000"subtract 1 from channelTempput "Channel" & channelTemp into cardNameif channeltemp < 0 thenexit mouseDownend ifset the name of card button id 32 to channelTempset numberFormat to "000"put channelTemp * 1 into bg field "channel"set numberFormat to "####0.000"if bg fld "Station" of cd cardName is not "Empty" thenif icon of bg btn id 59 is "5029" thenput (bg field "kHz" of card cardName) + 0 into bg field "dial"put bg field "Mode" of card cardName into bg field "mode"put bg field "AGC" of card cardName into bg field "AGC"put bg field "Bandwidth" of card cardName into bg field "filter"put bg field "attenuator" of card cardName into bg field "att"put bg field "addfreq" of card cardName into morefreqput morefreq into bkgnd fld "altfreq"end ifput empty into channelDataput bg field "kHz" of cd cardName into channelDataKHzput bg field "station" of cd cardName into channelDataStationput bg field "remarks" of cd cardName into channelDataRemarksput channelDataKHz && "kHz" & return & channelDataStation & return & channelDataRemarks into bg field"Channel Data"end ifif bg fld "Station" of cd cardName is "Empty" thenput " " & return & "Empty" into bg field "Channel Data"end ifif bg fld "Station" of cd cardName is not "Empty" and icon ¬of bg btn id 59 is "5029" then-- send mouseUp to cd button "Channel Set"sendFreqdoAGCdoModedoATTdoBWend ifif the mouse is up then exit repeatend repeat-- UPDATE LOCATION OF SLIDING CHANNEL SELECT BUTTONput bg field "channel" into channelTempmultiply channelTemp by 1.825add 95 to channelTempset numberFormat to "0"divide channelTemp by 1put channelTemp & ",276" into theLocset the loc of cd btn id 32 to (theLoc)end mouseDown</script>
</part>
<part>
<id>59</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>201</left>
<top>301</top>
<right>276</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5029</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Instant Channel</name>
<script>on mouseUpget the icon of Meif It is "5028" then -- OFFset icon of me to "5029" -- TURN ONput true into instantChannelelseset icon of me to "5028" -- TURN OFFput false into instantChannelend ifplay clickend mouseUp</script>
</part>
<part>
<id>60</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>236</left>
<top>127</top>
<right>310</right>
<bottom>149</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ATT</name>
<script>on mousedownglobal windowLoc, theTextget the rect of bkgnd btn "ATT"put item 1 of it + item 1 of loc of card window +1 into horizput item 4 of it + item 2 of loc of card window +32 into vertget PopUpMenu("Off: -0 dB;On: -20 dB", 19, vert, horiz)put it into choiceif choice = "0" then exit mousedownif choice = "1" then put "-0 dB" into bg field "ATT" elseif choice = "2" then put "-20 dB" into bg field "ATT" elseend ifend ifdoATTend mousedown</script>
</part>
<part>
<id>61</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>465</left>
<top>165</top>
<right>504</right>
<bottom>185</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>WWV</name>
<script>----- modified by Evans----- offers choice of all WWV frequencieson mousedownset numberFormat to "#####.000"global windowLoc, theTextget the rect of bkgnd btn "WWV"put item 1 of it + item 1 of loc of card window +1 into horizput item 4 of it + item 2 of loc of card window +63 into vertget PopUpMenu(" 5;10;15;20", 19, vert, horiz)put it into choiceif choice = "0" then exit mousedownif choice = "1" thensendSPort "H1" & return & "F05000000" & returnput 5000.000 into dialTempend ifif choice = "2" thensendSPort "H1" & return & "F10000000" & returnput 10000.000 into dialTempend ifif choice = "3" thensendSPort "H1" & return & "F15000000" & returnput 15000.000 into dialTempend ifif choice = "4" thensendSPort "H1" & return & "F20000000" & returnput 20000.000 into dialTempend ifput dialTemp into bg field "Dial"put "AM" into bg field "Mode"put "WIDE" into bg field FILTERput "FAST" into bg field "AGC"sendSPort "B0" & returnsendSPort "D4" & returnsendSPort "G1" & returnsendFreqdoModedoBWdoATTdoAGCend mousedown</script>
</part>
<part>
<id>62</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>74</top>
<right>489</right>
<bottom>100</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>13483</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clock</name>
<script>----- added by Evans----- sets NRD 535's clock to computer's clockon mouseUpglobal tempSecsif the optionkey is down thensendSport "R7" & returnexit mouseupend ifset the numberformat to "00"put "00" into hhput "00" into mmput "00" into ssadd (item 4 of tempsecs) to hhadd (item 5 of tempsecs) to mmadd (item 6 of tempsecs) to ssput "R1" & hh & mm & ss into rclocksendSport rclock & returnsendSport "R4" & returnend mouseUp</script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>278</left>
<top>307</top>
<right>304</right>
<bottom>330</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8538</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Global Find</name>
<script>on mouseUp-- go to first card of this backgroundask "Enter text for search. Return for more"if it is empty then exit mouseUpput it into searchStringfind searchStringif the result is not empty thenanswer "Unable to find search text in file."exit mouseUpend ifput "find"&"e&searchString"ehide messageend mouseUp</script>
</part>
<part>
<id>64</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>61</left>
<top>44</top>
<right>78</right>
<bottom>58</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>S</name>
<script>----- added by Evans----- displays signal stength db values in field windowon mouseDownglobal commanding, fromRcvrif commanding thenrepeat until the optionkey is downsendSport "M" & returnput recvChars(5) into fromRcvrdelete the first char of fromRcvrif fromRcvr >= 72 then put "+50 dB" into sunitif fromRcvr >= 76 then put "+40 dB" into sunitif fromRcvr >= 81 then put "+30 dB" into sunitif fromRcvr >= 88 then put "+20 dB" into sunitif fromRcvr >= 93 then put "+10 dB" into sunitif fromRcvr >= 97 then put "+ 0 dB" into sunitif fromRcvr >= 100 then put " 9" into sunitif fromRcvr >= 104 then put " 8" into sunitif fromRcvr >= 106 then put " 7" into sunitif fromRcvr >= 113 then put " 6" into sunitif fromRcvr >= 118 then put " 5" into sunitif fromRcvr >= 122 then put " 4" into sunitif fromRcvr >= 133 then put " 3" into sunitif fromRcvr >= 140 then put " 2" into sunitif fromRcvr >= 155 then put " 1" into sunitput sunit into cd field meterend repeatend ifput "" into cd field meterend mouseDown</script>
</part>
<part>
<id>67</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>240</left>
<top>110</top>
<right>276</right>
<bottom>126</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>0</name>
<script>on mouseStillDownglobal PBShiftget thumbBtn (13,498,-20,20,true)put it into PBShiftdoPBSend mouseStillDown</script>
</part>
<part>
<id>68</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>127</top>
<right>458</right>
<bottom>149</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>PBS</name>
<script>on mousedownglobal windowLoc, theText, PBShiftget the rect of bkgnd btn "PBS"put item 1 of it + item 1 of loc of card window +1 into horizput item 4 of it + item 2 of loc of card window +32 into vertget PopUpMenu("On;Off", 19, vert, horiz)put it into choiceif choice = "0" thenput 0 into PBShiftdoPBShide bkgnd button id 67exit mousedownend ifif choice = "1" then show background button id 67 elseif choice = "2" then hide bkgnd button id 67 elseend ifend ifend mousedown</script>
</part>
<part>
<id>69</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>458</left>
<top>127</top>
<right>504</right>
<bottom>149</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>BWC</name>
<script>on mousedownglobal windowLoc, theTextglobal BWCWidthget the rect of bkgnd btn "BWC"put item 1 of it + item 1 of loc of card window +1 into horizput item 4 of it + item 2 of loc of card window +32 into vertget PopUpMenu("On;Off", 19, vert, horiz)put it into choiceif choice = "0" then sendSport "W0000" & return -- exit mousedownif choice = "1" thenshow background button id 70show bg field "BWC"show bkgnd field id 71show card button id 92show card button id 93doBWCelseif choice = "2" thensendSport "W2200" & returnhide bkgnd button id 70Hide bg field "BWC"hide bkgnd field id 71hide card button id 92hide card button id 93elseend ifend ifend mousedown</script>
</part>
<part>
<id>70</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>145</left>
<top>110</top>
<right>365</right>
<bottom>125</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>+0000</name>
<script>on mouseStillDownglobal PBShiftget thumbBtn (13,498,-20,20,true)put it into PBShiftdoPBSend mouseStillDown</script>
</part>
<part>
<id>71</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>369</left>
<top>41</top>
<right>432</right>
<bottom>53</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>outline</textStyle>
<textHeight>12</textHeight>
<name>BWCresult</name>
<script></script>
</part>
<part>
<id>72</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>467</left>
<top>208</top>
<right>504</right>
<bottom>228</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ƒreq</name>
<script>on mouseUpglobal morefreqif the visible of bg field id 80 is false thenshow bg field id 80show bg button "scan"put morefreq into bg field id 80elseif the visible of bg field id 80 is true thenhide bg field id 80hide bg button scanif the optionkey is not down then send mouseup to card button "channel set"end ifend ifend mouseUp</script>
</part>
<part>
<id>73</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1370</left>
<top>147</top>
<right>429</right>
<bottom>247</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>Altfreq</name>
<script>on mouseUpget the style of meif it is transparent then-- put empty into bg field "channel information"set lockscreen to trueset style of me to scrollingset textStyle of me to plainset textSize of me to 10set the rect of me to 364,164,454,254-- set lockText of me to falseset lockscreen to falseend ifif it is scrolling thenset lockscreen to trueset the style of me to transparentset the textStyle of me to outlineset lockText of me to trueset the rect of me to 1370,147,429,247-- put "Channel Information" into bg field "Channel Information"set lockscreen to falseend ifplay clickend mouseUp</script>
</part>
<part>
<id>80</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>364</left>
<top>162</top>
<right>453</right>
<bottom>255</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>altfreq</name>
<script>on mouseDown-- load freq associated with the clickget item 2 of the clickloc - top of me + scroll of meput 1 + it div the textHeight of me into LineNumselect line LineNum of meput the selection into holdmeset numberFormat to "#####.000"multiply holdme by 1put holdme into dialTempif dialTemp > 0 and dialTemp < 34000 thenput holdme into bg field "dial"sendFreqdoModedoBWdoATTdoAGCend ifexit mousedownif the result is not empty thenbeepend ifend mouseDown</script>
</part>
<part>
<id>81</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>467</left>
<top>231</top>
<right>504</right>
<bottom>251</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>scan</name>
<script>on mouseUpset hilite of me to trueput 120 into scanSpeedif the shiftKey is down then put "0" into scanSpeedrepeat while the highlight of me is truerepeat with x = 1 to the number of lines in bg field "altFreq"put line x of bg fld "altfreq" into holdmeset numberFormat to "#####.000"multiply holdme by 1put holdme into dialTempput holdme into bg field "dial"sendFreqdoModedoBWdoATTdoAGCif the mouse is down then exit repeatend repeatif the mouse is down then exit repeatend repeatset hilite of me to falseend mouseUp</script>
